home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / OSAComp.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  1.6 KB  |  60 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        OSAComp.a
  3. ;
  4. ;    Contains:    AppleScript Component Implementor's Interfaces.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1992-1997, 1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__OSACOMP__') = 'UNDEFINED' THEN
  19. __OSACOMP__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__AEDATAMODEL__') = 'UNDEFINED' THEN
  25.     include 'AEDataModel.a'
  26.     ENDIF
  27.  
  28. ; **************************************************************************
  29. ;    Types and Constants
  30. ;*************************************************************************
  31.  
  32. ; **************************************************************************
  33. ;    Routines for Associating a Storage Type with a Script Data Handle 
  34. ;*************************************************************************
  35.  
  36. ;
  37. ; pascal OSErr OSAGetStorageType(Handle scriptData, DescType *dscType)
  38. ;
  39.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  40.         IMPORT_CFM_FUNCTION OSAGetStorageType
  41.     ENDIF
  42.  
  43. ;
  44. ; pascal OSErr OSAAddStorageType(Handle scriptData, DescType dscType)
  45. ;
  46.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  47.         IMPORT_CFM_FUNCTION OSAAddStorageType
  48.     ENDIF
  49.  
  50. ;
  51. ; pascal OSErr OSARemoveStorageType(Handle scriptData)
  52. ;
  53.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  54.         IMPORT_CFM_FUNCTION OSARemoveStorageType
  55.     ENDIF
  56.  
  57.  
  58.     ENDIF ; __OSACOMP__ 
  59.  
  60.